home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fg / fggbl.bas < prev    next >
BASIC Source File  |  1994-10-19  |  6KB  |  95 lines
  1. Option Explicit
  2.  
  3. Global Const G_ARC = 1
  4. Global Const G_CHORD = 2
  5. Global Const G_DRAWTEXT = 3
  6. Global Const G_ELLIPSE = 4
  7. Global Const G_LINE = 5
  8. Global Const G_POLYGON = 6
  9. Global Const G_PIE = 7
  10. Global Const G_POLYLINE = 8
  11. Global Const G_POLYPOLYGON = 9
  12. Global Const G_POLYTEXTOUT = 10
  13. Global Const G_RECTANGLE = 11
  14. Global Const G_ROUNDRECT = 12
  15. Global Const G_TEXTOUT = 13
  16. Global Const G_FREEHAND = 14
  17. Global Const G_GLOBALPIC = 20
  18.  
  19.  
  20. ' DrawText() Format Flags
  21. Global Const DT_TOP = &H0
  22. Global Const DT_LEFT = &H0
  23. Global Const DT_CENTER = &H1
  24. Global Const DT_RIGHT = &H2
  25. Global Const DT_VCENTER = &H4
  26. Global Const DT_BOTTOM = &H8
  27. Global Const DT_WORDBREAK = &H10
  28. Global Const DT_SINGLELINE = &H20
  29. Global Const DT_EXPANDTABS = &H40
  30. Global Const DT_TABSTOP = &H80
  31. Global Const DT_NOCLIP = &H100
  32. Global Const DT_EXTERNALLEADING = &H200
  33. Global Const DT_CALCRECT = &H400
  34. Global Const DT_NOPREFIX = &H800
  35. Global Const DT_INTERNAL = &H1000
  36.  
  37. ' Common Dialog font flags
  38. Global Const CF_APPLY = &H200&
  39. Global Const CF_ANSIONLY = &H400&
  40. Global Const CF_BOTH = &H3&
  41. Global Const CF_EFFECTS = &H100&            'Specifies that the dialog box should enable strikethrough, underline, and color effects.
  42. Global Const CF_FIXEDPITCHONLY = &H4000&    'Specifies that the dialog box should select only fixed-pitch fonts.
  43. Global Const CF_FORCEFONTEXIST = &H10000    'Specifies that an error message box is displayed if the user attempts to select a font or style that does not exist.
  44. Global Const CF_LIMITSIZE = &H2000&         'Specifies that the dialog box should select only font sizes within the range specified by the Min and Max properties.
  45. Global Const CF_NOSIMULATIONS = &H1000&     'Specifies that the dialog box should not allow GDI (graphic device interface) font simulations.
  46. Global Const CF_NOVECTORFONTS = &H800&      'Specifies that the dialog box should not allow vector-font selections.
  47. Global Const CF_PRINTERFONTS = &H2&         'Causes the dialog box to list only the fonts supported by the printer, specified by the hDC property.
  48. Global Const CF_SCALABLEONLY = &H20000      'Specifies that the dialog box should allow only the selection of fonts that can be scaled.
  49. Global Const CF_SCREENFONTS = &H1&          'Causes the dialog box to list only the screen fonts supported by the system.
  50. Global Const CF_SHOWHELP = &H4&             'Causes the dialog box to display a Help button.
  51. Global Const CF_TTONLY = &H40000            'Specifies that the dialog box should allow only the selection of TrueType fonts.
  52. Global Const CF_WYSIWYG = &H8000&           'Specifies that the dialog box should allow only the selection of fonts that are available on both the printer and the display. If this flag is set, the CF_BOTH and CF_SCALABLEONLY flags should also be set.
  53.  
  54. ' Draw Mode Flags
  55. Global Const R2_BLACK = 1           'Pixel is always black.
  56. Global Const R2_WHITE = 16          'Pixel is always white.
  57. Global Const R2_NOP = 11            'Pixel remains unchanged.
  58. Global Const R2_NOT = 6             'Pixel is the inverse of the screen color.
  59. Global Const R2_COPYPEN = 13        'Pixel is the pen color.
  60. Global Const R2_NOTCOPYPEN = 4      'Pixel is the inverse of the pen color.
  61. Global Const R2_MERGEPENNOT = 14    'Pixel is a combination of the pen color and the inverse of the screen color (final pixel = (~screen pixel) | pen).
  62. Global Const R2_MASKPENNOT = 5      'Pixel is a combination of the colors common to both the pen and the inverse of the screen (final pixel = (~screen pixel) & pen).
  63. Global Const R2_MERGENOTPEN = 12    'Pixel is a combination of the screen color and the inverse of the pen color (final pixel = (~pen) | screen pixel).
  64. Global Const R2_MASKNOTPEN = 3      'Pixel is a combination of the colors common to both the screen and the inverse of the pen (final pixel = (~pen) & screen pixel).
  65. Global Const R2_MERGEPEN = 15       'Pixel is a combination of the pen color and the screen color (final pixel = pen | screen pixel).
  66. Global Const R2_NOTMERGEPEN = 2     'Pixel is the inverse of the R2_MERGEPEN color (final pixel = ~(pen | screen pixel)).
  67. Global Const R2_MASKPEN = 9         'Pixel is a combination of the colors common to both the pen and the screen (final pixel = pen & screen pixel).
  68. Global Const R2_NOTMASKPEN = 8      'Pixel is the inverse of the R2_MASKPEN color (final pixel = ~(pen & screen pixel)).
  69. Global Const R2_XORPEN = 7          'Pixel is a combination of the colors that are in the pen and in the screen, but not in both (final pixel = pen ^ screen pixel).
  70. Global Const R2_NOTXORPEN = 10      'Pixel is the inverse of the R2_XORPEN color (final pixel = ~(pen ^ screen pixel)).
  71.  
  72. ' Background Styles
  73. Global Const BKS_TRANSPARENT = 1
  74. Global Const BKS_OPAQUE = 2
  75.  
  76. ' Fill Styles
  77. Global Const FS_SOLID = 0       ' Solid
  78. Global Const FS_HOLLOW = 1      ' Hollow
  79. Global Const FS_HORLINES = 2    ' Horizontal Lines
  80. Global Const FS_VERTLINES = 3   ' Vertical Lines
  81. Global Const FS_UPDIAG = 4      ' Upward Diagonal
  82. Global Const FS_DOWNDIAG = 5    ' Downward Diagonal
  83. Global Const FS_CROSS = 6       ' Cross
  84. Global Const FS_DIAGCROSS = 7   ' Diagonal Cross
  85.  
  86. ' Border Styles
  87. Global Const BS_SOLID = 0       ' Solid
  88. Global Const BS_DASH = 1        ' Dash
  89. Global Const BS_DOT = 2         ' Dot
  90. Global Const BS_DASHDOT = 3     ' Dash Dot
  91. Global Const BS_DASHDOTDOT = 4  ' Dash Dot Dot
  92. Global Const BS_TRANSPARENT = 5 ' Transparent
  93. Global Const BS_INSIDESOLID = 6 ' Inside Solid
  94.  
  95.